home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 12.st / HISBENCH.ARC / HISBENCH.BAS next >
Encoding:
BASIC Source File  |  1989-04-12  |  2.7 KB  |  110 lines
  1. ' HiSoft BASIC Timing Test
  2. ' Copyright 1989 Antic Publishing
  3. LIBRARY "gemvdi","gemaes"
  4. WINDOW NAME 2," HiSoft Basic Timing Test "
  5. WINDOW OUTPUT 2
  6.  
  7. DEF FNDifference(stp,start)
  8.  FNDifference=(stp-start)*60 'in jiffies
  9. END DEF
  10.  
  11. SUB Dummy
  12.  'nothing here!
  13. END SUB
  14.  
  15. ' Compute the value of pi
  16. Tresult=1
  17. Tmstart=Timer
  18. FOR Lp=1 TO 500
  19.  If INT(Lp/2)=Lp/2 THEN
  20.    Mlt=1
  21.  ELSE
  22.    Mlt=-1
  23.  END IF
  24.  Tresult=Tresult+Mlt/(Lp*2+1)
  25. NEXT Lp
  26. Tpi=Tresult*4
  27. Tmstop=Timer
  28. Tmdiff=FNDifference(Tmstop,Tmstart)
  29. LOCATE 3,1
  30. Print "the computed value of pi is ";Tpi
  31. Print "time necessary for pi calculation is ";Tmdiff
  32. LPrint "the computer value of pi is ";Tpi
  33. LPrint "time necessary for pi calculation is ";Tmdiff
  34. ' Compute the sine function in a loop
  35. Tresult=0
  36. Tmstart=Timer
  37. For Lp=1 TO 100
  38.   Tresult=Tresult+Sin(Lp)
  39. Next Lp
  40. Tmstop=Timer
  41. Tmdiff=FNDifference(Tmstop,Tmstart)
  42. Print "the computed sum of sines is ";Tresult
  43. Print "the time to compute the sum of sines ";Tmdiff
  44. LPrint "the computed sum of sines is ";Tresult
  45. LPrint "the time to compute the sum of sines ";Tmdiff
  46. ' compute the sum of square roots
  47. Tresult=0
  48. Tmstart=Timer
  49. For Lp=1 to 100
  50.   Tresult=Tresult+Sqr(Lp)
  51. Next Lp
  52. Tmstop=Timer
  53. Tmdiff=FNDifference(Tmstop,Tmstart)
  54. Print "sum of square roots is ";Tresult
  55. Print "time necessary to sum square roots is ";Tmdiff
  56. LPrint "sum of square roots is ";Tresult
  57. LPrint "time necessary to sum square roots is ";Tmdiff
  58. 'Count up using real number
  59. Result=0
  60. Tmstart=Timer
  61. For Lp=1 TO 5000
  62.  INCR Result
  63. Next Lp
  64. Tmstop=Timer
  65. Tmdiff=FNDifference(Tmstop,Tmstart)
  66. Print "time to count (real) to 5000 is ";Tmdiff
  67. Lprint "time to count (real) to 5000 is ";Tmdiff
  68. 'Count using integers
  69. Result%=0
  70. Tmstart=Timer
  71. For Lp%=1 to 5000
  72.  INCR Result%
  73. Next Lp%
  74. Tmstop=Timer
  75. Tmdiff=FNDifference(Tmstop,Tmstart)
  76. Print "time to count (integer) to 5000 is ";Tmdiff
  77. LPrint "time to count (integer) to 5000 is ";Tmdiff
  78. ' Lets call some procedures
  79. Tmstart=Timer
  80. For Lp=1 to 1000
  81.  Dummy
  82. Next Lp
  83. Tmstop=Timer
  84. Tmdiff=FNDifference(Tmstop,Tmstart)
  85. Print "time to go to a procedure 1000 times is ";Tmdiff
  86. Lprint "time to go to a procedure 1000 times is ";Tmdiff
  87. ' a little string handling!
  88. Dummy$=STRING$(255,"A")
  89. Tmstart=Timer
  90. For Lp=1 TO 255
  91.   MID$(Xx$,Lp,1)=Mid$(Dummy$,Lp,1)
  92.   MID$(Yy$,Lp,1)=Mid$(Dummy$,Lp,1)
  93. Next Lp
  94. Tmstop=Timer
  95. Tmdiff=FNDifference(Tmstop,Tmstart)
  96. Print "time to do 512 string manipulations is ";Tmdiff
  97. Lprint "time to do 512 string manipulations is ";Tmdiff
  98. 'Some disk access, just for fun
  99. Tmstart=Timer
  100. OPEN "O",#1,"A:TEST"
  101. FOR Lp=1 TO 1000
  102.   PRINT #1, Lp
  103. Next Lp
  104. Print #1, Dummy$
  105. Print #1, Dummy$
  106. Tmstop=Timer
  107. Tmdiff=FNDifference(Tmstop,Tmstart)
  108. Print "time to do disk access is ";Tmdiff
  109. Lprint "time to do disk access is ";Tmdiff
  110. Close #1